00100	BEGIN "KIHEAR"
00200	DEFINE ⊂="COMMENT";
00300	⊂ To initiate the ADC and record an utterance in file LISTEN.TMP;
00400	DEFINE CR="'15",LF="'12",CRLF="CR&LF";
00500	
00600	INTEGER CHAN1,EOF;
00650	
00670	CHAN1←6;
00700	CLOSE(CHAN1); OPEN(CHAN1,"DSK",0,0,1,0,EOF,0);
00710	ENTER(CHAN1,"LISTEN.TMP",0);
00720	⊂ LISTEN will normally contain the recorded utterance;
00730	OUT(CHAN1,"TEST");
00740	CLOSE(CHAN1); RELEASE(CHAN1);
00800	OUTSTR("The word TEST has been written in file LISTEN.TMP"&CRLF);
00840	END "KIHEAR";